object Form1: TForm1 Left = 318 Top = 167 BorderStyle = bsNone Caption = 'Bonjour' ClientHeight = 231 ClientWidth = 361 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Image1: TImage Left = 0 Top = 0 Width = 361 Height = 231 Align = alClient OnDragDrop = Image1DragDrop OnDragOver = Image1DragOver OnMouseMove = Image1MouseMove OnMouseUp = Image1MouseUp end object Shape1: TShape Left = 188 Top = 4 Width = 17 Height = 17 Brush.Style = bsClear ParentShowHint = False Pen.Color = clBlue Pen.Width = 4 ShowHint = True Visible = False OnDragDrop = Image1DragDrop OnMouseDown = Shape1MouseDown OnMouseUp = Shape1MouseUp end object Image2: TImage Left = 216 Top = 24 Width = 73 Height = 73 Picture.Data = {} Visible = False end object Image3: TImage Left = 156 Top = 36 Width = 65 Height = 65 AutoSize = True Picture.Data = {} Visible = False end object DataSource1: TDataSource DataSet = Table1 Left = 32 Top = 16 end object Table1: TTable TableName = 'c:\bonjour\RUNIC.DB' Left = 64 Top = 16 end object PopupMenu1: TPopupMenu Left = 96 Top = 16 object N4: TMenuItem Caption = 'New' RadioItem = True object N5: TMenuItem Caption = 'Button' OnClick = N5Click end end object N8: TMenuItem Caption = 'Delete ...' OnClick = N8Click end object Editor1: TMenuItem Caption = 'Editor...' OnClick = Editor1Click end object N3: TMenuItem Caption = 'Color ...' OnClick = N3Click end object N1: TMenuItem Caption = 'Caption' OnClick = N1Click end object About1: TMenuItem Caption = 'About...' OnClick = About1Click end object Minimize1: TMenuItem Caption = 'Minimize' OnClick = Minimize1Click end object N2: TMenuItem Caption = 'Quit' OnClick = N2Click end end object ColorDialog1: TColorDialog Ctl3D = True Left = 128 Top = 16 end object Timer1: TTimer Enabled = False Interval = 200 OnTimer = Timer1Timer Left = 54 Top = 70 end end